COMMENT ⊗   VALID 00002 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	BEGIN INTEGER N,I,J,BRKREAL X,Y,C,DX,UP,LOW,HIGH
 00003 ENDMK
⊗;
BEGIN INTEGER N,I,J,BRK;REAL X,Y,C,DX,UP,LOW,HIGH;
LABEL A;STRING TEMP;
A:
OUTSTR("
N=");N←CVD(INCHWL);
OUTSTR("C=");TEMP←INCHWL;C←REALSCAN(TEMP,BRK);
OUTSTR("LOW=");TEMP←INCHWL;LOW←REALSCAN(TEMP,BRK);
OUTSTR("DX=");TEMP←INCHWL;DX←REALSCAN(TEMP,BRK);
OUTSTR("HIGH=");TEMP←INCHWL;HIGH←REALSCAN(TEMP,BRK);
FOR X←LOW STEP DX UNTIL HIGH DO BEGIN
Y←X;J←0;
FOR I←1 STEP 1 UNTIL N DO BEGIN
Y←C+Y+(if Y≤0.5 then 0.99*Y ELSE 0.99-0.99*Y);
IF Y≥1.0 THEN BEGIN Y←Y-1.0;J←J+1 END END;
OUTSTR("
"&CVF(X)&CVF(Y)&CVF(Y-X+J)) END;GO TO A END;